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Use this handy BASIC 
program to transform 
abstract equations into 
tangible graphs! 


BY JAMES E. TARCHINSKI 


ver the years “A picture is worth a 

thousand words” has become just 
another trite cliche. But in the world of 
electronics, it certainly is the truth, 

As añn example of how valuable pic- 
tures can be in electronics, consider 
for a moment the schematic diagram. 
A schematic is nothing more than a 
pictoral representation of an elec- 
tronic circuit. Without such diagrams, 
we would be forced to describe even 
the simplest of networks by using 
pages and pages of text: "A ¥-wattt, 
330-ohm resistor is connected be- 
tween the output buffer of the 555 timer 
and the positive 5-volt terminal of the 
main power supply...” 


The Graph. Schematics aren't the 
only pictures that aid the electronic 
hobbyist: there are also graphs. 
Graphs are excellent for conveying 
the relationship between two or more 
variables, such as how a voltage 
changes with respect to time in an AC 
network. Essentially, graphs transform 
very abstract mathematical equa- 
tions into a visual pattern that our 
minds can easily process and com- 
prehend. 

While graphs are generally very 
easy to interpret and understand, they 
ore not always so easy to create. Start- 
ing with a blank sheet of paper, you 
must first draw the two axis and divide 
each of them info an appropriate 
scale. Next you plot anywhere from 
five to fifty, or more, points, depending 
on exactly what it is that you are trying 
to graph. Lastly, you connect the points 
with a smooth curve and hope that the 


| end result is worth the time it took to 


draw. Sometimes it’s worth the effort 
and you are pleased with the results. 
Other times, however, you end up star- 
ing the process over and thinking that 
there has to be a better way. Well, now 
there is a better way: GrapherBas! 


1000 
1010 
1020 
1030 


LISTING 1—GRAPHER.BAS 


"GRAPHER.BAS PROGRAM FOR THE PC 


CLEAR : SCREEN 0,0,0,0 : 
WIDTH 80 : CLS : KEY OFF 


COLOR 10,0,0 


1040 PI = 3.14159265 

1050 ' 

1060 PRINT NIK IK II IK KK KK KKK KKK RE kkk kk kkk kkk kkk kikki kk kkk kk iok k kk kkk kkk i" 
1070 PRINT "* a 
1080 PRINT "* GRAPHER. BAS x 
1090 PRINT "* Ex 
1100 PRINT "* (c) 1988 by James E. Tarchinski a 
1110 PRINT "* a 
1120 PRINT OT CEC eCOCLSLOCCCCCSCCCOCCCCCCOOL Le SSC CCT eS PP TT eS et ee ee ee te 
1130 COLOR 11 

1140 PRINT 

1150 PRINT ” This program is a plotting utility that allows users to" 

1160 PRINT "plot mathematical functions. If you wish to print out these" 

1170 PRINT “graphs, you may do so by using the 'SHIFT-PrtSC' function” 


1180 PRINT “of the computer.” 

1190 PRINT 

1200 PRINT " Before this program is run, however, jyou must modify the" 
1210 PRINT "print values in Lines 7000 - 7160. You must also define the" 
1220 PRINT “two functions that you wish to plot, which may be entered as" 
1230 PRINT "subroutines starting at Lines 8000 and 9000." 

1240 PRINT " 

1250 PRINT " If you have not yet made these modifications, press the" 
1260 PRINT "'E' key to exit the program...."“ 


PRINT "Press any key ('E' to break)..."7 


1270 PRINT 

1280 LOCATE 23,1 : COLOR 7 : 

1290 ! 

1300 INS=INKEYS:IF INS<>"" THEN GOTO 1300 


1310 


INS=INKEYS:IF INS= "“ THEN GOTO 1310 


1320 CLS : IF INS="E" OR INS="e" THEN END 

1330 ' 

1340 ' 

1350 '***eeeeeee INITIALIZE VARIABLES & SCREEN *%# kk kk kkk k 
1360 ' 

1370 SCREEN 2 : CLS 'enter graphics mode 

1380 LINE (76,12)-(76,172) 

1390 LINE -(636,172) 

1400 ' 

1410 FOR I=76 TO 636 STEP 56 : LINE (I,170)-(I,174) : NEXT I 
1420 FOR I=12 TO 172 STEP 16 : LINE (74,1)-(78,1) : NEXT I. 
1430 ' g 

1440 GOSUB 7000 'get graph values 

1450 ' 

1460 IF LEN(T1$)>60 THEN T1$=LEFT$(T1$,60) 'limit to 60 characters 
1470 IF LEN(T2$)>60 THEN T2$=LEFT$(T2$,60) 

1480 IF LEN(X$)>60 THEN X$=LEFT$(X$,60) 


1490 C=44-INT(LEN(T1$)/2) : LOCATE 1,C : PRINT T1$; 

1500 C=44-INT(LEN(T2$)/2) : LOCATE 2,C : PRINT 12S; 

1510 C=44-INT(LEN(X$)/2) : LOCATE 24,C : PRINT X$; 
; 


1520 
1530 L=LEN(Y$) : IF L>18 THEN L=18 
1540 FOR I=l TO L 

1550 LOCATE 1+2,1 : 
1560 NEXT I 

1570 ' 

1580 DY=(YMAX-YMIN)/10 
1590 FOR I=0 TO 10 
1600 J=YMIN+I*DY 
1610 LOCATE (22-2*1I),2: 


Grapher is BASIC-language pro- 
gram for PC’s that plots one or two 
mathematical functions on a high res- 
olution screen. There are no scales to 
calculate, no points to plot by hand, 
and no curves to draw. All you need fo 
do to get high-quality graphs is to 
modify several constants in the pro- 
gram, enter the mathematical equa- 
tions to be plotted, and then run the 
program—Grapher will do the rest. 


Using Grapher. To use Grapher, load 
BASIC into your computer, enter Listing 
1, and immediately save the program 
to disk to protect yourself in case of a 
system crash. After loading the pro- 


PRINT MIDS(YS,1I,1); 


‘print y-axis lable 


‘lable y-axis loop 


PRINT USING "+####.##°° 7 


gram and typing in RUN and RETURN, yOu 
should see a page of text appear on 
the screen. In it are instructions on how 
to use the program. For testing pur- 
poses, disregard the warming about 
making modifications and press the 
space bar fo continue. 

If you have entered the program 
correctly, you should see the text page 
replaced with a graph carrying the 
very technical sounding title: “THIS IS 
THE FIRST TITLE LINE OF THE 
GRAPH,” followed by another title line. 
The title lines are a good example of 
the program's frills. When using the pro- 
gram, you will replace those lines with 
the title of your particular graph. You 


LISTING 1 (continued) 


NEXT I 

À 

J$=STR$(XMAX) : LOCATE 23,81-LEN(J$) : PRINT J$; 

DX=(XMAX-XMIN)/10 

FOR I=0 TO 8 STEP 2 
J=XMIN+I*DX 
LOCATE 23,7+1*7 : 

NEXT I 


tkkkkkkěkkk MAIN PLOTTING SECTION #3000 Oar a ROO I Kk 
' 


SX = (XMAX - XMIN) / 560 
' 


‘lable x-axis loop 


PRINT USING "+###. #"7 7 


FOR ML=1 TO 2 
FOR X = XMIN TO XMAX STEP SX 
IF ML=1 THEN GOSUB 8000 ELSE GOSUB 9000 
IF Y<YMIN OR Y>YMAX THEN 1820. ‘out of range, next value 
PY = 172 - (Y-YMIN) * 160 / (YMAX - YMIN) 
PX = 76 + (X-XMIN) * 560 / (XMAX - XMIN) 
IF X=KMIN THEN LINE (PX,PY)-(PX,PY) ELSE LINE -(PX,PY) 
NEXT X 
NEXT ML 
' 
IN$=INKEY$:IF IN$<>"" THEN GOTO 1850 
IN$=INKEY$:IF INS= "" THEN GOTO 1860 
IF INS<>"E" AND IN$<>"e" THEN 1850 


‘push E to exit loop 
END x 


'==sss===== PLACE CONSTANT VALUES HERE ====2========== 


YMIN = ~1.5 'minimum y value 

YMAX = 1.5 'maximum y value 

'place y-axis title below (18 charaċters, max.) 
Y$ = "THIS IS THE Y-AXIS" 

1 


XMIN = -360 'minimum x value 

XMAX = 360 'maximum x value 

'place x-axis lable below (60 characters, max.) 
X$ = "THIS IS THE GRAPH'S X-AXIS" 

' 


7120 'place two title lines below (60 characters, max.) 
7130 T1$ = "THIS IS THE FIRST TITLE LINE OF THE GRAPH" 
7140 T2$ = “(And this is the second title line)” 

' 


7160 RETURN 
Oo: 


8000 '===s=s==s== PLACE FUNCTION #1 BELOW =========s===s==== 


, 
8020 Y = SIN(X*(PI/180)) 
Oo! 


8040 RETURN 


9000 '====:===== PLACE FUNCTION #2 BELOW =======s2======2sc=2 


9020 Y = 1.2*SIN(X*(PI/180)+30*( PI/180) ) 


9040 RETURN 


will also change other labels shown on 
the screen, We'll describe how to 
make those modifications. a little later. 

A moment or two after the title ap- 
pears, if you've entered the program 
correctly, a graph similar fo the. one 
shown in Fig. 1 should materialize on 
your screen. The graph is a plot of two 
sinewaves having the same frequen- 
cy, but different magnitudes and 
phase angles. 

When the plotting process is com- 
plete, the program begins running a 
loop that is constantly looking for a 
press of the E key. Once E has been 
pressed, the program halts execution 
and retums you ta the BASIC language 


editor (with the “OK” prompt dìs- 
played). : 


The Program. Having looked at an 
example of the tyoe of chart Grapher 
is capable of producing, lets discuss 
how you can modify the program to 
graph the functions that you'd like fo 
see displayed. 

Lets analyze lines 7000-7140 of the 
program, looking atthe sample graph 
shown in Fig. 4. Notice first of all that the 
variables YMIN and YMAX of the pro- 
gram, which are defined by lines 7020 
and 7030, are used to specify the mini- 
mum and maximum values of the Y 
variable that will be displayed on the 


screen, In lines 7070 and 7080, XMIN 
and XMAX are defined in the same 
manner for use with the graph’s X-axis. 
Simply modify the values (before you 
fun the program) to accommodate 
the range of the variable you wish to 
plot. 

Although any values for XMIN and 
XMAX will generally work, sometimes 
you may select values of YMIN and 
YMAX such that the points Grapher 
needs to plot are outside of the range 
displayed on the screen, The result of 
that is that no points will appear on the 
screen when the program is run. That 
would be the first place to look for mis- 
takes if your graphs do not appear as 
you expect them to. 

The variable YS in line 7050 is assign- 
eda value to be used as the title of the 
graph’s Y-axis, and the variable X$ of 
line 7100 is used for the title of the X- 
axis. Similarly, the program has two 
lines associated with the main title 
(7130 and 7140), and those lines assign 
values to variables 1$ and 12S. 

To modify the four labels to fit your 
own graphs, merely change the string 
values to whatever text you would like 
to see on the graph. Because the pro- 
gram automatically centers the title 
and axis labels, there is no need to 
“pad” the strings with extra spaces. 
When entering the variables, be care- 
ful not to exceed the maximum al- 
towable lengths; the Y-axis label can 
be up to 18 characters long, while the 
other three strings can be up to 60 
characters in length. 

The last thing you must do before 
Grapher can plot your functions is to 
type into the program the functions 
you want to plot. To do that, you need 
fo enter each function as a subroutine, 
one staring at line 8000 and one at 
9000. Your subroutines should always 
return a value in the variable Y for 
every value of X that is used by the 
routine; that is, every value of X that is 
between XMIN and XMAX. 

In Listing 1, Function is a simple sine- 
wave with an amplitude of one and a 
phase angle of zero. Function 2 is also 
a sinewave, but with an amplitude of 
1.2 and a 30° phase angle. Please 
keep in mind that BASIC assumes all 
angles are in radians. Because the 
variable X is in degrees, the ratio 
n/180° is used to Convert degrees into 
radians. 
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Fig. 1. The two sinewaves shown here are the * 


“default” functions. To display your own 


functions and label the axis modify grapher as described in the text. 
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Fig. 2. This is another example of the Grapher program’s output. Lines 7000-9040 of 
Grapher were modified as shown in Listing 2 on page 100 to allow the program to produce the 


graph shown in this illustration. 


As an example of how to modify the 
program to use other functions, Fig. 2 
shows another set of plots generated 
by Grapher: the rising and falling ex- 
ponential functions. Listing 2 shows the 
modifications necessary fo to gener- 
ate that graph. 

Keep in mind that the functions de- 
scribed by the subroutines don’t have 
to be just one line long, they just have 
to retum a single value of Y for every 
value of X in the range from XMIN to 
XMAX. For example, the subroutine 


listed below could be used to plot a 2- 
volt sinewave that has been clipped to 
+1.75 volts. 


8020 Y= 2*SIN (X*(PI/80)) 

8024 IF Y>1.75 THEN Y =1.75 
8028 IF Y<-1.75 THEN Y =-1.75 
8040 RETURN 


Another important point to re- 
member is that subroutines must al- 


ways end with a RETURN statement, 


Failure to include that statement, de- 
pending on where it is supposed to be 


located, is punishable by a simple er- 
ror message, the halting of program 
execution, or the plotting of an incor- 
rect graph. 


Program Description. From Listing 1, 
it can be seen that Grapher is com- 
posed of three main sections of code 
and three “support” areas. The code 
sections are: 1) program initialization: 
2} screen and variable initialization; 3) 
the main plotting section. The three 
support areas, which have already 
been discussed, are: 1) the constant 
values section; 2) Function 1 definition 
area; 3} Function 2 definition area. 

A general description of each of the 
six segments of the program follows. 
For those readers who are more inter- 
ested in a line-by-line description of 
how Grapher works, please refer to Ta- 
ble 1, which contains such a descrip- 
tion. 

Program initialization takes place in 
lines 1000-1340. This section starts by 
clearing the program's variables and 
displaying one screen of instructions. 
Then, in lines 1280-1320, the user is al- 
lowed to gracefully exit the program if 
they have not modified the print values 
in tines 7000-7160, or if they have not 
entered the functions they wish to plot 
as subroutines starting at lines 8000 
and 9000. 

In the next section of the program, 
from line 1350 to line 1700, both the 
program variables and the screen are 
initialized. This section takes care of 
drawing and labeling the graph’s 
axes, displaying the titles of the axes, 
and displaying the title of the graph as 
a whole. 

The fast section of code, the part 
that handles the actual graphing of 
the functions, is contained in lines 
4710-1900. An outer FOR-NEXT loop, 
which begins on line 1750, is used to 
step through each of the two functions 
in tum. An inner FOR-NEXT loop begins 
on line 1760 and its purpose is to step 
through each pixel (or “dot”) on the X- 
axis from the minimum X value (XMIN) 
to the maximum value (XMAX). 


More Words. Grapher's charts do not 
fill the entire PC screen, but rather use 
an area that is 160-pixels high by 560- 
pixels long, for a total of: 


160 x 560 = 89,6000 pixels 
Because the PC uses a method of dis- 
playing graphics known as bit-map- 
ing (every pixel is represented by a 

(Continued on page 100) 


